home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / macro28.lha / Macro / MPascal / errors.ged < prev    next >
Encoding:
Text File  |  1994-09-12  |  341 b   |  23 lines
  1. /*
  2. ** $VER: errors 0.001 (10 Sep 1994) ***
  3. **
  4. ** (c) © 1994 Oliver Clouth
  5. **
  6. */
  7.  
  8. host = ADDRESS()                              /* get GED's port    */
  9.  
  10. IF show('p', 'MPASCAL') THEN
  11.  
  12.     do
  13.         ADDRESS MPASCAL
  14.         "errors"
  15.     end
  16. else 
  17.     do
  18.         ADDRESS (host)
  19.         'REQUEST BODY "Couldn''t launch MPascal ?!"'
  20.     end
  21.  
  22. EXIT
  23.